home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Map-aka.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-08  |  3.3 KB  |  125 lines
  1. on startMovie
  2.   global grollnumber, gleftedge, grightedge, gupedge, gdownedge, gKnobState, gKnobSprite
  3.   gKnobState = 2
  4.   gKnobSprite = 18
  5.   puppetSprite(48, 1)
  6.   gleftedge = 560
  7.   grightedge = 320
  8.   gupedge = 265
  9.   gdownedge = 210
  10.   grollnumber = 6
  11. end
  12.  
  13. on checkrolls
  14.   repeat with i = 2 to 6
  15.     if rollOver(i) then
  16.       theCast = cast(the castNum of sprite i).name
  17.       set the castNum of sprite i to the number of member (theCast & "1")
  18.       updateStage()
  19.       repeat while rollOver(i)
  20.         checkCursors()
  21.         set the locH of sprite 48 to the mouseH
  22.         set the locV of sprite 48 to the mouseV
  23.         updateStage()
  24.         if the mouseDown then
  25.           exit
  26.         end if
  27.       end repeat
  28.       set the castNum of sprite i to the number of member theCast
  29.       updateStage()
  30.     end if
  31.   end repeat
  32. end
  33.  
  34. on myLeft
  35.   global gleftedge, grollnumber
  36.   channel = the clickOn
  37.   puppetSprite(channel, 1)
  38.   puppetSound("buttonSound")
  39.   theCast = cast(the castNum of sprite channel).name
  40.   set the castNum of sprite channel to the number of member (theCast & "B")
  41.   updateStage()
  42.   puppetSound(0)
  43.   repeat while the stillDown
  44.     if the locH of sprite 1 >= gleftedge then
  45.       exit repeat
  46.     end if
  47.     repeat with i = 1 to grollnumber
  48.       set the locH of sprite i to the locH of sprite i + 15
  49.     end repeat
  50.     updateStage()
  51.   end repeat
  52.   set the castNum of sprite channel to the number of member theCast
  53.   updateStage()
  54.   puppetSprite(channel, 0)
  55. end
  56.  
  57. on myRight
  58.   global grightedge, grollnumber
  59.   channel = the clickOn
  60.   puppetSprite(channel, 1)
  61.   puppetSound("buttonSound")
  62.   theCast = cast(the castNum of sprite channel).name
  63.   set the castNum of sprite channel to the number of member (theCast & "B")
  64.   updateStage()
  65.   puppetSound(0)
  66.   repeat while the stillDown
  67.     if the locH of sprite 1 <= grightedge then
  68.       exit repeat
  69.     end if
  70.     repeat with i = 1 to grollnumber
  71.       set the locH of sprite i to the locH of sprite i - 15
  72.     end repeat
  73.     updateStage()
  74.   end repeat
  75.   set the castNum of sprite channel to the number of member theCast
  76.   updateStage()
  77.   puppetSprite(channel, 0)
  78. end
  79.  
  80. on myUp
  81.   global gupedge, grollnumber
  82.   channel = the clickOn
  83.   puppetSprite(channel, 1)
  84.   puppetSound("buttonSound")
  85.   theCast = cast(the castNum of sprite channel).name
  86.   set the castNum of sprite channel to the number of member (theCast & "B")
  87.   updateStage()
  88.   puppetSound(0)
  89.   repeat while the stillDown
  90.     if the locV of sprite 1 >= gupedge then
  91.       exit repeat
  92.     end if
  93.     repeat with i = 1 to grollnumber
  94.       set the locV of sprite i to the locV of sprite i + 15
  95.     end repeat
  96.     updateStage()
  97.   end repeat
  98.   set the castNum of sprite channel to the number of member theCast
  99.   updateStage()
  100.   puppetSprite(channel, 0)
  101. end
  102.  
  103. on myDown
  104.   global gdownedge, grollnumber
  105.   channel = the clickOn
  106.   puppetSprite(channel, 1)
  107.   puppetSound("buttonSound")
  108.   theCast = cast(the castNum of sprite channel).name
  109.   set the castNum of sprite channel to the number of member (theCast & "B")
  110.   updateStage()
  111.   puppetSound(0)
  112.   repeat while the stillDown
  113.     if the locV of sprite 1 <= gdownedge then
  114.       exit repeat
  115.     end if
  116.     repeat with i = 1 to grollnumber
  117.       set the locV of sprite i to the locV of sprite i - 15
  118.     end repeat
  119.     updateStage()
  120.   end repeat
  121.   set the castNum of sprite channel to the number of member theCast
  122.   updateStage()
  123.   puppetSprite(channel, 0)
  124. end
  125.